home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Libraries / Translator.asm < prev   
Assembly Source File  |  1991-03-13  |  347b  |  23 lines
  1. *
  2. *    Translator.asm for PCQ Pascal
  3. *    Copyright 1990 Patrick Quaid
  4. *
  5. *
  6. *    Stub for the Translate() routine defined in
  7. *    Include/Libraries/Translator.i
  8.  
  9.  
  10.     XREF    _TranslatorBase
  11.  
  12.     SECTION    PCQ_Runtime,CODE
  13.  
  14.     XREF    _LVOTranslate
  15.     XDEF    _Translate
  16. _Translate
  17.     movem.l    4(sp),d1/a1
  18.     movem.l    12(sp),d0/a0
  19.     move.l    _TranslatorBase,a6
  20.     jmp    _LVOTranslate(a6)
  21.  
  22.     END
  23.